home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Setup / BCB / data.z / grplist.dfm / grplist.txt
Encoding:
Text File  |  1998-02-09  |  14.1 KB  |  555 lines
  1. object GrpListForm: TGrpListForm
  2.   Left = 415
  3.   Top = 167
  4.   Width = 680
  5.   Height = 587
  6.   Caption = 'GrpListForm'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'System'
  11.   Font.Style = []
  12.   Scaled = False
  13.   PixelsPerInch = 96
  14.   TextHeight = 16
  15.   object QuickRep: TQuickRep
  16.     Left = 0
  17.     Top = 0
  18.     Width = 653
  19.     Height = 845
  20.     Frame.Color = clBlack
  21.     Frame.DrawTop = False
  22.     Frame.DrawBottom = False
  23.     Frame.DrawLeft = False
  24.     Frame.DrawRight = False
  25.     DataSet = Customer
  26.     Description.Strings = (
  27.       
  28.         'This report builds on the Customer listing report and adds group' +
  29.         'ing of customers by first letter in company name. You can see ho' +
  30.         'w to:'
  31.       '- Use QRGroup to group records'
  32.       '- Example of an expression: Copy(Company,1,1)'
  33.       '- Use TQRExpr to print an expression')
  34.     Font.Color = clBlack
  35.     Font.Height = -13
  36.     Font.Name = 'Arial'
  37.     Font.Style = []
  38.     Options = [LastPageFooter]
  39.     Page.Columns = 1
  40.     Page.Orientation = poPortrait
  41.     Page.PaperSize = Letter
  42.     Page.Values = (
  43.       100
  44.       2794
  45.       100
  46.       2159
  47.       100
  48.       100
  49.       0)
  50.     PrintIfEmpty = False
  51.     PrinterSettings.Copies = 1
  52.     PrinterSettings.Duplex = False
  53.     PrinterSettings.FirstPage = 0
  54.     PrinterSettings.LastPage = 0
  55.     PrinterSettings.OutputBin = First
  56.     SnapToGrid = True
  57.     Units = MM
  58.     Zoom = 80
  59.     object DetailBand1: TQRBand
  60.       Left = 30
  61.       Top = 101
  62.       Width = 593
  63.       Height = 16
  64.       Frame.Color = clBlack
  65.       Frame.DrawTop = False
  66.       Frame.DrawBottom = False
  67.       Frame.DrawLeft = False
  68.       Frame.DrawRight = False
  69.       AlignToBottom = False
  70.       Color = clWhite
  71.       ForceNewColumn = False
  72.       ForceNewPage = False
  73.       Size.Values = (
  74.         52.916666666666700000
  75.         1961.223958333330000000)
  76.       BandType = rbDetail
  77.       object QRDBText1: TQRDBText
  78.         Left = 6
  79.         Top = 3
  80.         Width = 159
  81.         Height = 14
  82.         Frame.Color = clBlack
  83.         Frame.DrawTop = False
  84.         Frame.DrawBottom = False
  85.         Frame.DrawLeft = False
  86.         Frame.DrawRight = False
  87.         Size.Values = (
  88.           46.302083333333300000
  89.           19.843750000000000000
  90.           9.921875000000000000
  91.           525.859375000000000000)
  92.         Alignment = taLeftJustify
  93.         AlignToBand = False
  94.         AutoSize = False
  95.         AutoStretch = False
  96.         Color = clWhite
  97.         DataSet = Customer
  98.         DataField = 'Company'
  99.         Transparent = False
  100.         WordWrap = True
  101.         FontSize = 10
  102.       end
  103.       object QRDBText2: TQRDBText
  104.         Left = 170
  105.         Top = 3
  106.         Width = 131
  107.         Height = 14
  108.         Frame.Color = clBlack
  109.         Frame.DrawTop = False
  110.         Frame.DrawBottom = False
  111.         Frame.DrawLeft = False
  112.         Frame.DrawRight = False
  113.         Size.Values = (
  114.           46.302083333333300000
  115.           562.239583333333000000
  116.           9.921875000000000000
  117.           433.255208333333000000)
  118.         Alignment = taLeftJustify
  119.         AlignToBand = False
  120.         AutoSize = False
  121.         AutoStretch = False
  122.         Color = clWhite
  123.         DataSet = Customer
  124.         DataField = 'Contact'
  125.         Transparent = False
  126.         WordWrap = True
  127.         FontSize = 10
  128.       end
  129.       object QRDBText3: TQRDBText
  130.         Left = 307
  131.         Top = 3
  132.         Width = 70
  133.         Height = 14
  134.         Frame.Color = clBlack
  135.         Frame.DrawTop = False
  136.         Frame.DrawBottom = False
  137.         Frame.DrawLeft = False
  138.         Frame.DrawRight = False
  139.         Size.Values = (
  140.           46.302083333333300000
  141.           1015.338541666670000000
  142.           9.921875000000000000
  143.           231.510416666667000000)
  144.         Alignment = taLeftJustify
  145.         AlignToBand = False
  146.         AutoSize = False
  147.         AutoStretch = False
  148.         Color = clWhite
  149.         DataSet = Customer
  150.         DataField = 'Phone'
  151.         Transparent = False
  152.         WordWrap = True
  153.         FontSize = 10
  154.       end
  155.       object QRDBText4: TQRDBText
  156.         Left = 385
  157.         Top = 3
  158.         Width = 70
  159.         Height = 14
  160.         Frame.Color = clBlack
  161.         Frame.DrawTop = False
  162.         Frame.DrawBottom = False
  163.         Frame.DrawLeft = False
  164.         Frame.DrawRight = False
  165.         Size.Values = (
  166.           46.302083333333300000
  167.           1273.307291666670000000
  168.           9.921875000000000000
  169.           231.510416666667000000)
  170.         Alignment = taLeftJustify
  171.         AlignToBand = False
  172.         AutoSize = False
  173.         AutoStretch = False
  174.         Color = clWhite
  175.         DataSet = Customer
  176.         DataField = 'FAX'
  177.         Transparent = False
  178.         WordWrap = True
  179.         FontSize = 10
  180.       end
  181.       object QRDBText5: TQRDBText
  182.         Left = 460
  183.         Top = 3
  184.         Width = 45
  185.         Height = 14
  186.         Frame.Color = clBlack
  187.         Frame.DrawTop = False
  188.         Frame.DrawBottom = False
  189.         Frame.DrawLeft = False
  190.         Frame.DrawRight = False
  191.         Size.Values = (
  192.           46.302083333333300000
  193.           1521.354166666670000000
  194.           9.921875000000000000
  195.           148.828125000000000000)
  196.         Alignment = taRightJustify
  197.         AlignToBand = False
  198.         AutoSize = False
  199.         AutoStretch = False
  200.         Color = clWhite
  201.         DataSet = Customer
  202.         DataField = 'CustNo'
  203.         Transparent = False
  204.         WordWrap = True
  205.         FontSize = 10
  206.       end
  207.     end
  208.     object ColumnHeaderBand1: TQRBand
  209.       Left = 30
  210.       Top = 62
  211.       Width = 593
  212.       Height = 19
  213.       Frame.Color = clBlack
  214.       Frame.DrawTop = False
  215.       Frame.DrawBottom = False
  216.       Frame.DrawLeft = False
  217.       Frame.DrawRight = False
  218.       AlignToBottom = False
  219.       Color = clWhite
  220.       ForceNewColumn = False
  221.       ForceNewPage = False
  222.       Size.Values = (
  223.         62.838541666666700000
  224.         1961.223958333330000000)
  225.       BandType = rbColumnHeader
  226.       object QRLabel1: TQRLabel
  227.         Left = 3
  228.         Top = 3
  229.         Width = 162
  230.         Height = 14
  231.         Frame.Color = clBlack
  232.         Frame.DrawTop = False
  233.         Frame.DrawBottom = True
  234.         Frame.DrawLeft = False
  235.         Frame.DrawRight = False
  236.         Size.Values = (
  237.           46.302083333333300000
  238.           9.921875000000000000
  239.           9.921875000000000000
  240.           535.781250000000000000)
  241.         Alignment = taLeftJustify
  242.         AlignToBand = False
  243.         AutoSize = False
  244.         AutoStretch = False
  245.         Caption = 'Company'
  246.         Color = clWhite
  247.         Font.Color = clBlack
  248.         Font.Height = -13
  249.         Font.Name = 'Arial'
  250.         Font.Style = [fsBold]
  251.         ParentFont = False
  252.         Transparent = True
  253.         WordWrap = True
  254.         FontSize = 10
  255.       end
  256.       object QRLabel2: TQRLabel
  257.         Left = 170
  258.         Top = 3
  259.         Width = 131
  260.         Height = 14
  261.         Frame.Color = clBlack
  262.         Frame.DrawTop = False
  263.         Frame.DrawBottom = True
  264.         Frame.DrawLeft = False
  265.         Frame.DrawRight = False
  266.         Size.Values = (
  267.           46.302083333333300000
  268.           562.239583333333000000
  269.           9.921875000000000000
  270.           433.255208333333000000)
  271.         Alignment = taLeftJustify
  272.         AlignToBand = False
  273.         AutoSize = False
  274.         AutoStretch = False
  275.         Caption = 'Contact'
  276.         Color = clWhite
  277.         Font.Color = clBlack
  278.         Font.Height = -13
  279.         Font.Name = 'Arial'
  280.         Font.Style = [fsBold]
  281.         ParentFont = False
  282.         Transparent = True
  283.         WordWrap = True
  284.         FontSize = 10
  285.       end
  286.       object QRLabel3: TQRLabel
  287.         Left = 307
  288.         Top = 3
  289.         Width = 70
  290.         Height = 14
  291.         Frame.Color = clBlack
  292.         Frame.DrawTop = False
  293.         Frame.DrawBottom = True
  294.         Frame.DrawLeft = False
  295.         Frame.DrawRight = False
  296.         Size.Values = (
  297.           46.302083333333300000
  298.           1015.338541666670000000
  299.           9.921875000000000000
  300.           231.510416666667000000)
  301.         Alignment = taLeftJustify
  302.         AlignToBand = False
  303.         AutoSize = False
  304.         AutoStretch = False
  305.         Caption = 'Phone'
  306.         Color = clWhite
  307.         Font.Color = clBlack
  308.         Font.Height = -13
  309.         Font.Name = 'Arial'
  310.         Font.Style = [fsBold]
  311.         ParentFont = False
  312.         Transparent = True
  313.         WordWrap = True
  314.         FontSize = 10
  315.       end
  316.       object QRLabel4: TQRLabel
  317.         Left = 385
  318.         Top = 3
  319.         Width = 70
  320.         Height = 14
  321.         Frame.Color = clBlack
  322.         Frame.DrawTop = False
  323.         Frame.DrawBottom = True
  324.         Frame.DrawLeft = False
  325.         Frame.DrawRight = False
  326.         Size.Values = (
  327.           46.302083333333300000
  328.           1273.307291666670000000
  329.           9.921875000000000000
  330.           231.510416666667000000)
  331.         Alignment = taLeftJustify
  332.         AlignToBand = False
  333.         AutoSize = False
  334.         AutoStretch = False
  335.         Caption = 'Fax'
  336.         Color = clWhite
  337.         Font.Color = clBlack
  338.         Font.Height = -13
  339.         Font.Name = 'Arial'
  340.         Font.Style = [fsBold]
  341.         ParentFont = False
  342.         Transparent = True
  343.         WordWrap = True
  344.         FontSize = 10
  345.       end
  346.       object QRLabel5: TQRLabel
  347.         Left = 459
  348.         Top = 3
  349.         Width = 46
  350.         Height = 14
  351.         Frame.Color = clBlack
  352.         Frame.DrawTop = False
  353.         Frame.DrawBottom = True
  354.         Frame.DrawLeft = False
  355.         Frame.DrawRight = False
  356.         Size.Values = (
  357.           46.302083333333300000
  358.           1518.046875000000000000
  359.           9.921875000000000000
  360.           152.135416666667000000)
  361.         Alignment = taLeftJustify
  362.         AlignToBand = False
  363.         AutoSize = False
  364.         AutoStretch = False
  365.         Caption = 'Cust no.'
  366.         Color = clWhite
  367.         Font.Color = clBlack
  368.         Font.Height = -13
  369.         Font.Name = 'Arial'
  370.         Font.Style = [fsBold]
  371.         ParentFont = False
  372.         Transparent = True
  373.         WordWrap = True
  374.         FontSize = 10
  375.       end
  376.     end
  377.     object PageFooterBand1: TQRBand
  378.       Left = 30
  379.       Top = 117
  380.       Width = 593
  381.       Height = 20
  382.       Frame.Color = clBlack
  383.       Frame.DrawTop = False
  384.       Frame.DrawBottom = False
  385.       Frame.DrawLeft = False
  386.       Frame.DrawRight = False
  387.       AlignToBottom = False
  388.       Color = clWhite
  389.       ForceNewColumn = False
  390.       ForceNewPage = False
  391.       Size.Values = (
  392.         66.145833333333300000
  393.         1961.223958333330000000)
  394.       BandType = rbPageFooter
  395.       object QRSysData1: TQRSysData
  396.         Left = 3
  397.         Top = 6
  398.         Width = 65
  399.         Height = 14
  400.         Frame.Color = clBlack
  401.         Frame.DrawTop = False
  402.         Frame.DrawBottom = False
  403.         Frame.DrawLeft = False
  404.         Frame.DrawRight = False
  405.         Size.Values = (
  406.           46.302083333333300000
  407.           9.921875000000000000
  408.           19.843750000000000000
  409.           214.973958333333000000)
  410.         Alignment = taLeftJustify
  411.         AlignToBand = False
  412.         AutoSize = True
  413.         Color = clWhite
  414.         Data = qrsDate
  415.         Text = 'Printed '
  416.         Transparent = False
  417.         FontSize = 10
  418.       end
  419.       object QRSysData2: TQRSysData
  420.         Left = 529
  421.         Top = 6
  422.         Width = 64
  423.         Height = 14
  424.         Frame.Color = clBlack
  425.         Frame.DrawTop = False
  426.         Frame.DrawBottom = False
  427.         Frame.DrawLeft = False
  428.         Frame.DrawRight = False
  429.         Size.Values = (
  430.           46.302083333333300000
  431.           1749.557291666670000000
  432.           19.843750000000000000
  433.           211.666666666667000000)
  434.         Alignment = taRightJustify
  435.         AlignToBand = True
  436.         AutoSize = True
  437.         Color = clWhite
  438.         Data = qrsPageNumber
  439.         Text = 'Page '
  440.         Transparent = False
  441.         FontSize = 10
  442.       end
  443.     end
  444.     object TitleBand1: TQRBand
  445.       Left = 30
  446.       Top = 30
  447.       Width = 593
  448.       Height = 32
  449.       Frame.Color = clBlack
  450.       Frame.DrawTop = False
  451.       Frame.DrawBottom = False
  452.       Frame.DrawLeft = False
  453.       Frame.DrawRight = False
  454.       AlignToBottom = False
  455.       Color = clWhite
  456.       ForceNewColumn = False
  457.       ForceNewPage = False
  458.       Size.Values = (
  459.         105.833333333333000000
  460.         1961.223958333330000000)
  461.       BandType = rbTitle
  462.       object QRLabel6: TQRLabel
  463.         Left = 160
  464.         Top = 3
  465.         Width = 272
  466.         Height = 27
  467.         Frame.Color = clBlack
  468.         Frame.DrawTop = False
  469.         Frame.DrawBottom = False
  470.         Frame.DrawLeft = False
  471.         Frame.DrawRight = False
  472.         Size.Values = (
  473.           89.296875000000000000
  474.           529.166666666667000000
  475.           9.921875000000000000
  476.           899.583333333333100000)
  477.         Alignment = taCenter
  478.         AlignToBand = True
  479.         AutoSize = True
  480.         AutoStretch = False
  481.         Caption = 'Grouped Customer Listing'
  482.         Color = clWhite
  483.         Font.Color = clNavy
  484.         Font.Height = -27
  485.         Font.Name = 'Arial'
  486.         Font.Style = [fsBold, fsItalic]
  487.         ParentFont = False
  488.         Transparent = False
  489.         WordWrap = True
  490.         FontSize = 20
  491.       end
  492.     end
  493.     object QRGroup1: TQRGroup
  494.       Left = 30
  495.       Top = 81
  496.       Width = 593
  497.       Height = 20
  498.       Frame.Color = clBlack
  499.       Frame.DrawTop = False
  500.       Frame.DrawBottom = False
  501.       Frame.DrawLeft = False
  502.       Frame.DrawRight = False
  503.       AlignToBottom = False
  504.       Color = clWhite
  505.       ForceNewColumn = False
  506.       ForceNewPage = False
  507.       Size.Values = (
  508.         66.145833333333300000
  509.         1961.223958333330000000)
  510.       Expression = 'copy(company,1,1)'
  511.       Master = QuickRep
  512.       object QRExpr1: TQRExpr
  513.         Left = 6
  514.         Top = 1
  515.         Width = 130
  516.         Height = 19
  517.         Frame.Color = clBlack
  518.         Frame.DrawTop = False
  519.         Frame.DrawBottom = False
  520.         Frame.DrawLeft = False
  521.         Frame.DrawRight = False
  522.         Size.Values = (
  523.           62.838541666666700000
  524.           19.843750000000000000
  525.           3.307291666666670000
  526.           429.947916666667000000)
  527.         Alignment = taLeftJustify
  528.         AlignToBand = False
  529.         AutoSize = True
  530.         AutoStretch = False
  531.         Font.Color = clNavy
  532.         Font.Height = -19
  533.         Font.Name = 'Arial'
  534.         Font.Style = []
  535.         Color = clWhite
  536.         ParentFont = False
  537.         ResetAfterPrint = False
  538.         Transparent = False
  539.         WordWrap = True
  540.         Expression = 'copy(company,1,1)'
  541.         FontSize = 14
  542.       end
  543.     end
  544.   end
  545.   object Customer: TTable
  546.     Active = True
  547.     DatabaseName = 'BCDEMOS'
  548.     IndexFieldNames = 'Company'
  549.     ReadOnly = True
  550.     TableName = 'CUSTOMER.DB'
  551.     Left = 12
  552.     Top = 12
  553.   end
  554. end
  555.